Dim fso, opnFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set opnFile = fso.OpenTextFile("c:\test.txt", 1, True)
MsgBox(opnFile.Read(1))
